MODULE FFT_INTEL

use VARKINDS
use MKL_DFTI

integer(4) :: ipar(128)
real(kind=kindreal), allocatable, save :: dpar(:)
complex(kind=kindreal), allocatable, save :: xfft(:)

type(dfti_descriptor), pointer :: Desc_Handle

contains
SUBROUTINE FFT_INTEL_ERROR_HANDLER(subr_name, status)

implicit none

character(len=*), intent(in) :: subr_name
integer(4), intent(in) :: status
if (status /= 0) then
  write(*,*) 'Error of MKL FFT in ', subr_name, ' status = ', status 
endif

END SUBROUTINE FFT_INTEL_ERROR_HANDLER


END MODULE FFT_INTEL

